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prea il STANDARD DEVICE ROUTINE TABLE 
2s -SBTTL STANDARD DEVICE ROUTINE TABLE 
3 -TITLE MAINDEC-11-DTTCA-B TC11/TUSE DEVICE ROUTINE FOR MPG 
6 ;REVISION °B’ 
;FILENAME OF “TTCABO.MPG™ ON MPG/XXDP MEDIA 
Nextt: tied: Brtce? ; free: Ceaien yy sOTTCA?.P1l 
PUNCH DTTC INPG/FILE :ELEV 
000000" seer a 


; THE FOLLOWING TABLE Ry IN THE STANDARDIZED FORMAT REQUIRED 
TO INTERFACE WITH MPG 
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73 : BIT 1S = “NOWAIT™ FLAG 

i A Be By baie 

Sz ; BIT i : DO 170 TERMINATION 

EN BLK: WORD 0 S cuRRENT stating BN odK NOMBER 

as .WORD 0 TERRE WORD ' é (NOT ie 

‘Hor 8 tINTERE HORD & 4 (NOT USED) 

i reese “ORD : INTERFACE WORD SB not HEEB} 

2 000020" 000001 SIZE: . WORD i 38 OF BYTES TRANSFERRED : 1 WNINAP 

=: pees eae GAD: “HORS 177340 iFTRe sevice necisten 

$3 009028’ 000214 IVCTAD: .WORD 214 INTERRUPT VECTOR ADR 

84 900030" 000300 PSWD: 300 INT STATUS WORD (BR 6) 
ae ies int loeb, 

S$ 000034 10 é HSKEEP-. : ING ROUT REL ADR 

87 000036’ 000742 .WORD  REPORT-. :REPORT ROUT REL AOR 

$8 009040: 901 360 “WORD KE KILL ROUT REL 

166 BooeNa’ Boise toed PouTER- ne BUTE SOUNTER REL. AR. 

101 o00046’ CIOBSY: -WORD OO 3170 BRANCH AOR pe 

tae rata ee “HORD - :Peyh Rr NOUTINE BRANCH ADR 
104 o00054 CLIST: .WORD 0 : CMND PRINT ROUTI ADR 
105 BINASC: .WORD 0 :CONVERT BINARY TO ASCI T BR ADR 
108 BTASL2: - WORD : :CONVERT BINARY T DEC TNAL ASCII BR ADR 
i DECASC: . WO} € RT PACKED CIMAL TO ASCII BR AOR 
188 TVEC: “HOD 5 ore iN VECT ROU AR 

110 CLRVEC: .WORD 0 :CLEAR INT VECTOR ROUT BR AOR 

111 TSTVEC: .WORD 0 ;TEST INT VECTOR ROUT BR ADR 
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STANDARD DEVICE ROUTINE TABLE 
375 .BYTE 375.0 
052123 ose 051525 “8S I ssiRTus/ 
4 047125 051524 Bee I /COUNTS/ 
373 000 -BYTE 373,0 
043040 042127 “ASCII 7 ‘FWD/ 
000 BY 372,0 
a: 053105 “BS I a REV/ 
051848 047104 o46525 “Aoef 7 N 
051840 owoeey 046114 Ber Aw 
367 000 -BYTE 367.0 
0S3440 046114 : I 7 WRALL/ 
o20888 Bee earn 
0Sii27 o46S24 "ASCII 7 WRTM/ 
365 000 -BYTE 365.0 
20940 052123 050117 ASCII d ,ST0P/ 
os2ie3 ouaeen 046114 Bert % 
363 000 -BYTE  363,0 
900376 000632 DVMVTE: .WORD 376,LNWAIT-LOCZ 
sen ie ce etre 
000573 000632 ; 33't -LOC 
000632 -WORD  372,LFWD-LOCZ 
000371 000632 -WORD  371,LREV-LOCZ 
000370 000633 -WORD  370,LRONUM-LOCZ 
000367 900633 WORD 367, LROALL -LOCZ 
000366 o0064e2 “WORD 366, -LOCZ 
000365 o0064e2 “WORD  365;LWRTM-LOCZ 
000364 - WORD 354, LSTOP-LOC 
000363 ‘ *LSTALL-L 
: COMPILER TABLE EXTENSION 
003 3 OVCPTE: .BYTE 3 
004537 oo0d 12 ORD 7,10. 
003 375 “BYTE 3,375 
000012 " 4637, 10. 
74 .BY 4 374 
ooodi2 001002 4 4537, 10. , 1002 
004 373 "BYTE 4.373 
004537 000012 001001 “WORD 4837,10.,1001 
003 372 ‘BYTE 3,372 
004537 o00012 : 4837.10. 
nous 71 "BYTE 3,371 
12 : 4837. 10. 
00s 370 “BYTE 5.370 
004537 o000l2 oD0000 “WORD 4637,10.,0,2 
D00r Re 367 BYTE 367 
004537 oo00l2 oco0000 “WORD 4§37,10.,0,2 
oo0n0e2 


ae ei ee ee 
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;MODEL VECTOR TABLE EXTEN. 


;NO WAIT 
;WAIT 
;STATUS 
;COUNTS 

; FORWARD 
;REVERSE 
;READ NUMBER 


;READ ALL 
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DTTCAB.P1l STANDARD DEVICE ROUTINE TABLE 


goge72" oogsne 
oosess ooo8t? c00000 “BOR 9839? 10..0,2 ee 5 ae 


=e oe ieee = 
“BY 3 ; ;STOP ALL 
000012 4637, 10. 


‘4 


230 
231 
ese DEVICE INTERFACE WORD SYMBOL TABLE 
234 o00s22" 046102 020113 Lente ASCII LK / 
532 ooeSe” 
o36 a | sEND OF TABLE 
| 238 : 
| p39 : MODEL STATEMENT TABLE 
p41 =000632" LNWAIT: 
242 000632’ LWAIT: 
243 000632’ LSTATS: 
244 000632" LCOUNT: 
245 000630" : 
246 000632’ LREV: 
247 000632” LSTOP: 
248 000632’ 000 LSTALL: .BYTE O 
249 000633’ LRDNUM: 
2s0 900633" 377 O47111 047524. LRDALL: .ASCIZ <377>/INTO/<377> 
* 000377 
251 oo0s4e’ LWRALL : 
252 OO00642’ 043377 O47S22 177515 LWRTM: .ASCIZ <377>/FROM/<377> 
000650’ O00 
253 000852’ EVEN 
255 000652’ HSKPST= . 
256 000652” ISTAT= . sSTORAGE FOR DEV REG’S AT INT 
258 000654’ 000000 “WORD 
259 000656’ 000000 “WORD 0 
260 000660’ O00000 “WORD O 
eel 000662’ 00000 “WORD O 
63 000664" oo000s CSTAT: .BLKW S DEV REG CURRENT VALUES STORAGE 
265 000676’ 000000 BYRD: .WORD O ;BYTES READ COUNT (READ, ROALL, 8 RDNUM) 
see BYWR ‘toe sBYTES WRITTEN COUNT (WRITE, WRALL, 8 
5e— Qo0704" D00000 WORD 8 Ny 
2639 000706’ o00000 NT: .WORD 0 :READ CHND ¢ COUNT (READ +e POALL, & RONUM) 
oo anaes NISeNT “WORD 5 sway c° oe KANT ¢ ( WATTE, WRAL 8 sateen 
272 Boosts’ BopobD ERRCNT: -WORD 0 Mais CONRORS tO ut 
273 000716’ 000000 DATAER: .WORD 0 DATA ERRORS ROuNT 
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; INTERRUPTS COUNT 
;8 OF erantes INTO 1/0 ERROR ROUT 
;CURR AOR 


;VALUE TO BE TAILORED BY DEV ROUT 
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| OTTCAB.P11 TC11 SUPPORT ROUTINES ENTERED FROM MPG 


283 .SBTTL TC11 SUPPORT ROUTINES ENTERED FROM MPG 
291 
e32 ;DEVICE ROUTINE HOUSEKEEPING 
34 ;JSR_ RS HSKEEP /R CALL 
$3 :.WORD O OR 1 Fe Settee PER OPSi 
2396 : 1 = UNCOND. DO HSKP 
297 :R2 = PROG’S OPSW 
o38 :DESTROYS RO,R1 
300 000744" 005725 HSKEEP: TST (RS)+ sUNCONDITIONALLY DO HSKP? 
301 00074’ 001003 BNE 10$ :N, Y-108 
302 000750’ 032702 oo0004 BIT BHSKPEP , R2 :OPSW SPECIFY EACH PASS HSKP? 
303 000754’ 001010 BNE 305 ?Y N=30$ 
304 000756’ 010700 10$: MOV PC. RO :SET UP FIRST WO ADR 
30S 000760’ be700 177672 ADD #HSKPST-. RO 
306 000764’ 012701 000035 MOV #HSKPEN-HSKPST/2,R1 ;SET UP # OF WORDS 
ef raed mera 20$: CLR {R0)+ *HSKP ALL NECESSARY AREAS 
+ J l us 

310 000776’ o00205 30$: RTS RS ' sEXIT IN-LINE 
312 
313 : ;TC11 REPORT ROUTINE 
31S :JSR «RS. REPORT S/R CALL 
316 >.WORD FLOWD FL 
317 : BIT 1S = CMND MODE CALL 
319 BIT f= DO-STATIS REPORT 
320 : Bt 4 2 BS ROUNte REPORT 
322 001000’ OO4067 003120 REPORT: JSR RO, SAVREG ;SAVE REG’S RO - RS 
= carat age 177776 BIT tos” s DISPLAYING CNTS igs END OF 

a8 9 

901012" sarge MOV RO :SE uP aBR OF’ CN 
326 ates 062700 177662 ADD #BYRD-. ,RO : 
327 001020’ 012701 o00012 MOV #10. .R1 :GET ® OF CNT WORDS 
328 001024" 905720 cs: TST (RO}4+ *THIS CNT WORD = 0? 
Ei Is iets eo 
321 00103e° oo1374 BNE S$ :CK’ED ALL WORDS? (Y,N-5SS) 
332 001034" 13 DVREX :GO TO EXIT -- ALL CNTS ARE O°S 
333 901036; 504767 003114 10S: ISR . SUPT AD ipl BL ADR IN R3 
33 OO1044" 032704 oo000e BIT #2,R4 {GOING TO DO STATUS DISPLAY? 
$7 Oboes" : > 003124 JSR Re, greTAT SU STORE STATUS REG"S 
339 901060" 010700 ws HOV PCO a ;SET_UP ROR OF REG’S AT 

ry ’ 4 = ~ 
es BB SEE’ Ole Ot hreBos a * MOV Hs Oe nat ibe} up # OF REG’S 

001072’ 0057 208: TST (RO)+ *ALL REG’S = 0? 
343 001074’ 001003 BNE 30S IN, Y-40$ 
344 001076’ 1 DEC Ri 

} 
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DTTCAB.P11 1 SUPPORT ROUTINES ENTERED FROM MPG 
yi 001100’ ; 20S 
LBs: Bea . = 
1104° 004767 003116 308: SR , DISUNM ;DISPLAY CURR UNIT # 
| 348 001110’ 004567 003316 '« JSR RS; PRINT ISSUE ‘AT LAST INT* MSG 
349 001114" 003437 _ WORD ATIMSG-. 
0011 ’ 4 gis fe: 
001120" 003172 eg ri DISPST ;GO0 DISPLAY STATUS AT LAST INT 
pO11e4" 1 * WORD IStAT-. 
324 bor 130° 004767 003072 4O$: oe ie ISt'NM SOO OPLAY CLR CNT 
$35 DOLL 3 oo¥se/ 003272 4S$: JSR RS: PRintT sDISPLAY coRENTt Ef MSG 
001140" .WORD CURMSG-. 
357 001142’ oo001e .WORD 10. 
358 001144’ OO4SE7 003146 JSR RS DISPST :GO DISPLAY CURRENT STATUS 
359 001150" keg 14 . WORD cota =, 
360 001152” ! ae 003230 JSR PRTIWD :GO DISPLAY INFO WORDS 
_ 361 001156’ O00402 BR prscrTi “CHECK FOR COUNTS DISPLAY 
be 001160" 004767 go3042 DISCNT: JSR ee ‘Bleecar CURR UNIT 8 
, b0000 : eed ; 
4 * OO14 Q TE : T 
| ay ca pols 000012 nO. RO tee ip § OF WORDS 
38 MOLE. O1O7OL Moy CRI = ;SET UP ADR OF CNTS 
| ppt Seq peer es aby seYRO ' :SET UP TBL ADR 
363 001206’ ADD #REPTBL-. ,R2 
370 OOl2l2’ 012267 o0001e2 RPTLP: MOV (Re)+, RPTBAS ;MOV_MSG ADR TO S/R LINKAGE 
371 001216’ 7 JSR RO, SAVREG 3 SAVE ALL REG’S 
372 OOle22’ 011100 MOV (RL), RO :GET CURRENT COUNT 
373 001224" 77 176626 ISR RS, ABINASC ‘CONVERT IT TO ASCII 
374 001230’ RPTBAS: XXX : 
375 OOi232’ 004067 002702 SR RO, RESREG REG’S 
376 O01e36: TST Ri)+ yi AT NXT CNT 
378 001242" 001363 BNE RPTLP :Y N-RPT tp 
3739 001244’ OO4SE7 oO03162 ISR RS, PRINT a ISSUE COUNTS MSG 
381 oles" Gobes1 ' NTSEN-GNTSMG 
382 001254’ O04S67 o031S2 RPTEND: JSR RS, PRINT ;ISSUE "END OF REPORT” MSG 
383 001260" 003336 . WORD REROMG-. 
38 pt , Aacaes 002650 DVREX: yen Ze RESREG sRESTORE REGISTERS 
286 901270" 05726 TST (RS)+ T UP RETURN POINT 
’ RTS RS XIT IN-LINE 
= 
390 1e74 003470 REPTBL: .WORD  BCMRD-RPTBAS 
I. BRE HBB FE 
1302’ 003520 “WORD +6 
334 001 003545 .WORD  CMDCRO-RPTBAS | 
395 001306’ Md CMOCWR-RPTBA 
32 001310’ 002575 “Wd EMDCMS-RPTBA 
01312” 24 WO ENTERR-RPTBA 
398 001314’ 003641 “WORD  CNTDER-RPTBAS 
233 001316’ ? WORD  CNTINT-RPTBAS 
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; TIMEOUT ERROR ROUTINE 


;JSR RS, TOUTER S/R CALL 

905267 177378 TOUTER: INC TOECNT sINCR # OF TIMEOUTS THAT OCCURRED 
177 000007 CMP TOECNT, #7 HIS SEVENTH TIMEOUT IN A ROW? 
1031 BNE TOUTEX :YANe N-T 
rin 002564 , SAVREG GISTERS 
004767 002612 JSR PC; SUPT Faas cos PROG TBL ADR’S 
004567 O0cb32 JSR RS; STSTA c STATUS 
177314 .WORD cStar-. 
004567 002516 JSR RS, TVECT CK IF : HAVE VECTOR CONTROL 
000404 BR 10$ :BR IF I DON’T 
112714 000011 MOVB = #11, (R4) RESET INT & STOP THE TAPE 
004767 O02460 JSR PC RINTV sRESET NTERRUPT VECTOR 
042713 o00010 10$: BIC #WT4IOT, (R3) *RESET WAITING FOR 1/0 FLAG 
O04S67 001674 JSR RS, ERRCS1 : ISSUE TIMEOUT ERROR MSG 
001553 . WORD TOTO-ERNBAS 
BpaoES 002530 jer 4 RESREG ; RESTORE REGISTERS 
012605 MOV (She RS 
000177 176432 IMP UPGER 60 TO ERHOR EXIT 
TOUTEX: RTS ae ‘EXIT IN-LINE 
;KILL USER PROGRAM ROUTINE 

: ISR S/R CALL 

:R3 MUST RRANTAIN PROG TBL ADR 

:DESTROYS RO,R1 ; 
004567 o024S0 KILL: JSR RS, TVECT ;CK IF I HAVE VECTOR CONTROL 
000407 BR KILLEX 5B IF I DON’T 
016701 176372 MOV DREGAD,R1 GET DEV REG ADR 
112761 000911 ooo002 MOVB Oe 2(R1) sRESET INT ENABLE 8 STOP THE TAPE 
004767 o02404 JSR C,RINTV RESET INT VECTOR INFO 
po0205 KILLEX: RTS Be ‘EXIT IN-LINE 


SEQ 0363 
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001516’ 
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042767 
000205 


siete 
oe 


4 


100000 


176326 


176306 


176276 


176266 


MACY11 27(732) 
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;"WAIT” FUNCTION ROUTINE 


:JSR RS, WAIT 
WAIT: BIC #100000, DFLGWD 
JSR PC, CKDaSY 


JSR PC, RINTV 


;"NOWAIT” FUNCTION ROUTINE 
;JSR  =-RS,NOWAIT 


NOWAIT: Bie gece: cate 


FUNCEX: 
;"FWD" FUNCTION ROUTINE 
; JSR RS, FWD 
FWD: BIC #4000, OFLGWD 
RTS as 
;"REV” FUNCTION ROUTINE 
; JSR RS,REV 
REV: 8 #4000 , DFLGWD 
RS 


;"READ” FUNCTION ROUTINE 


;JSR_ RS, READ 
:.WORD ADR 
;-WORD ADR 
*.WORD CNT 
; -WORD V 
READ: MOV #105,R1 
MOV 4011 Bz . 
RDCOM: JSR CKDBSY 
INC ANT 
MOV PC RO 
ADD aBYRD+2-. ,RO 
BR CMDCOM 


24-SEP-76 14:00 PAGE S 


FUNCTION CALL 
i THE “NOWAIT” F 


LAG 
T_IF BUSY & DO TERMINATION 
eT TH THE Or ated VECTOR 


FUNCTION CALL 


;SET_ THE “NOWAIT” FLAG 
EXIT IN-LINE 


FUNCTION CALL 


;RESET THE REVERSE FLAG 
sEXIT IN-LINE 


FUNCTION CALL 


;SET_ THE REVERSE FLAG 
EXIT IN-LINE 


DATA ADD 

BYTE COUNT 
(NOT USED) 
;SET UP on CMND CODE 


;SET UP _RE Pes 1a 
:G0 = IF BEV S BU 


600 UP Toke OF seo. READ CNT 


;GO TO CMND COMMON PROCESSING 





j 
| MAINDEC-11 
DTTCAB.P11 TC11 FUNCTION ROUTINES 
433 ;"WRITE" FUNCTION ROUTINE 
495 ;JSR_- RS, WRITE 
496 > WORD ADR 
497 : WORD 
| 498 ;-WORD CNT 
8 lope 
501 001546’ 012701 000115 WRITE: MOV #115,R1 
S02 001552’ Ole702 000011 MOV #011 
S03 001556" 004767 001404 WRCOM: JSR PC, CDS 
504 001562’ 005267 177122 INC WRONT 
50S 001566’ 010700 PC, RO 
506 001570’ 062700 177114 ADD #BYWR+2-. , RO 
207 001574’ ooo442 BR CMDCOM 
_  §09 
| 10 ;"RONUM™ FUNCTION ROUTINE 
| 612 JSR RS, RONUM 
_ 813 ;.WORD ADR 
S14 WORD CNT 
| §16 001576’ 012701 000103 RDNUM: MOV #103,R1 
| §17 001602° 012702 oO00102 MOV #102: Re 
| 218 001606’ 000747 BR ROCOM 
520 
bel s"RDALL” FUNCTION ROUTINE 
523 ;JSR RS, RDALL 
S24 :.WORD ADR 
5e5 : WORD CNT 
527 001610’ 012701 000007 RDALL: MOV #007,R1 
528 001614’ Ole702 000232 MOV #232; R2 
523 001620’ o00742 BR ROCOM 
531 
se ;"WRALL” FUNCTION ROUTINE 
534 ;JSR «RS, WRALL 
535 >. WORD ADR 
sb :.WORD CNT 
538 001622’ 012701 000017 WRALL: MOV #017,R1 
539 001626’ Ole702 o00032 MOV #032' Re 
S40 001632’ 000751 BR WRCOM 
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CMND CNT 
;SET UP ADR OF BYTES WRITTEN CNT 
;GO TO CMND COMMON PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 


;SET UP RONUM CMND CODE 
;SET_UP CMND FLAG WORD 
;G0 TO COMMON READ PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 


;SET UP RDALL CMND CODE 
;SET_UP CMNO FLAG WORD 
;GO TO COMMON READ PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 


;SET UP WRALL CMND CODE 
;SET_UP CMND FLAG WORD 
;GO TO COMMON WRITE PROCESSING 





| 
| 
| 
| 
| 
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DTTCAB.Pil 

S4e 

S43 

S44 

Bg 

4? 

S48 001634’ 

Bea 1640’ 
1644" 

$S1 

SSe 

5S3 

SS4 

S55 

S56 

S57 001646’ 

558 0016Se’ 

5539 001656’ 

S60 001662’ 

561 001668’ 

Ste 

S63 

S64 

S65 

566 

S67 

ape § 101670’ 
101674" 

570 001700" 0007 


TC1l1 FUNCTION ROUTINES 


WRTM: 


STOP: 


MISCOM: 


STPALL: 


MACY11 27(732) 


;"WRTM” FUNCTION ROUTINE 


; JSR RS WRTM 
soy eo 
MOV —-#013,R 


eRe 


;"STOP™ FUNCTION ROUTINE 


;JSR RS, STOP 
MOV #111, Rl 
MOV #044’ RE 
JSR PC, CKDBSY 
ge de 


;"STPALL” FUNCTION ROUTINE 
;JSR RS,STPALL 


my yo 
aR MIscON 
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FUNCTION CALL 
Ss 
Cc 
;SET UP alls tp CODE 
36 oo: FLAG WORD 
TO COMMON WRITE PROGESSING 


_ FUNCTION CALL 


;SET UP STOP CMND CODE 
:SET WORD 


;G0 
; ADD 
;G0 


FUNCTION CALL 


ise UP ab, ke CMND Deb 
a's ¥ CMND 
0 MISC. CHND COM PROCESSING 


SEQ 0366 


mal 
OTT 


SES 0367 


24-SEP-76 14:00 PAGE S-3 


CE ROUTINE FOR MPG ACYL) 27(732) 
ROUTINES 


SRSPLL ren FUNCTION ROUT 


| 


;COMMAND COMMON PROCESSING ROUTINE 


, IF APPLICABLE 


OF _TCCM DEV REG 


AOR 

PROG T 

as oe 

ROR OF COUNT TOTALS 


. 7. 

Sad a a 

ee te. & eh EF et 

eo Hey pee & > BE 

> ce ~ w e. © dadtss 

cee BEE SE cre geist cfs oz best: 

saan Sorbetb ig bytlacste ices Sond, 

i a Seee tas GSEs Scat 
” a a} 3 
; eee 
B neennnas 

) RoR = tt @ é 

gS ee A et 

2 Siw ays 8 gst i oy oS ES she 

5 avgs “an@oopesteeeec * Tae aye Roe ss 

te rs ae at eke 


CMDCOM: 


*. 
-_ 


20$: 


wa 
w 


ne eowreerkeen ©eeneeneeeeenkeneeereeeeeneeeseeeeeee e+ * 


i eesreenerreneree 


Bo die dp De ve fr Beppe bl bl br 


8888S88S8S8888ssssssss 





| SECRE GERBER RR ree a TET 


— ee ————EEE 


ee ee eS e ae ee ee Ce ne. 6 ee ee a 


i 
' 
| 
i 
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PRINQECCLI-DTTORG TELL/TUSE DEVICE ROUTINE FOR MPG —MACYLL 27(732) 24-SEP-76 14:00 PAGE S-4 








INDEC=1 
|“ DTTCAS.Pil 
| 628 goe0se, Q3e7ge o00010 BIT 810,R2 eee ee 
a; ) 16767 175780 176650 Hoy BLK, INLKN ae TAUIZE GLK 8 FOR, ie S/R 
| 2H + beee? 178706 001101 cre “1577. = VALID? 
| ba eat hae 001160 ISR inebenck REPORT INV BLK ® ERROR 
«BS OBBSLIB> ooesey sos: ine DATAER TA ERR CNT 
—-BBUE Be HP ee 0 he SIR EE EM 
| Be i Sealey Us 175640 SOS i $11, DFLGHD : Ore Eee er ES 
| & aa" 5 Tyeera GRO REVENT™ eet T CNT 
«BAS Olen: 600020 BIT #80, Re SERVICING? 

«BB else 3 900030 CLR —- PTOCNT(R3) ae TI "eal 
BH lea seve? GO8BOS 175610 ats BEL GHD et TERMINATION" FLAG 
648 008172’ 052713 000010 BIS swt 4I0T, (R3) ;SET WAITING FOR 1/0 TERM FLAG 

B43 OUeI7e. 104 Hove RL, (RY) sISSUE THE COND 

ee) Hee: Gi ics itor 

5 bee Bo une 2 BAP seed le 
bY Boseie’ Gooeds SOEX: RRS RS’ SBT INLINE 70 USER PROG 
65 02220" 042713 000010 WTNOT: BIC — SWTYIOT, (R3) ;RESET WAITING FOR 1/0 TERM 
657 Odee24" 000774 BF CMDEX :G0 TO EXIT 


ee me a a ee 


| MAINDEC=11-DTTCA-B TC11/TUS6 DEVICE ROUTINE 


| OTT CAB.PI1 


6s9 


679 


BR eR BARRE ORES 
on 


QRASERSSS SARE 


Se 


NNN 
oT, 
Muro 
Ra 


x 
iy 
RS 


eseeeese#ee*e*e#*e#e2ee#e##« 


os Se 


nN 


oe od 


ni 


mrrMo 


5 
r 


oon 


o £MO 


FOR MPG = MACY11 27(732) 


we ee ee eee ee Cee 


TC11 NON-INTERRUPT COMMAND 8& DATA SERVICING 
-SBTTL C11 NON-INTERRUPT COMMAND & DATA SERVICING 


Ti6i4 
032702 


105714 


= 


soe 


SBaaR 
2uE 
Nos 


oO 
~- 
i 


a ik 


ra 
~ 
be 


a 
NS 


: 


24-SEP-76 14:00 PAGE 6 


NONINT: BIC #100,R T MNO 
f at CaaS Tete AUR CETH iN 
BIT 810,Re iB BLK H TYPE OF CMND? 
10S: ist tt ; READ : w 
MOV is, Ee OS oun CMND CODE 
JSR PC’ SEARCH :60 FOR 
BR 2s$ iE ? (N. Y-25$) 
176442 BIT 810, CURFLG 5 OUND THE BLK? 
aoe bps NINTSU ib Neds REGISTERS 
BIT 8200, :"RDALL™ CMND? 
BEQ Sos :Y,N-5SOS 
s"RDALL” SERVICING 
208: S78 (RY) ;REAOY y ger” 
20$ ; 
TST (RY) t EAROR 8 OR gIT SET? 
an 308 4) Re a TCST REG WITH BITS 16 8 17 
BIC 8177774, Re a STHER B a 
MOV Re, (RO)+ : aeeee WORD uita BITS 16 8 17 
Beds SPEER NES WORD SNS) 
MOV £R3) , (RO)+ : STORE BITS 0-18 FROM TCDT 
ine Sts DER _NSS (Y,N-20$) 
I] 40$ :GO TO TERMINATION 
NON-INT CMND TERMINATION 
saad 2ss: JSR PC, NINTSU ;SET UP CORRECT REG VALUES 
08: a Pine Noahs NAL MoRD cht a t 
HOV Ra SCR) VE FINAL J AOR TO 
JSR RO, STSTAT ie ive oft ni 1088 
.WORD © ISTAT-. 
ST (Ra) ae sore Saneeeee READY. IF STILL UP 
Wee OBE Teac lee, Ge 
BR CMDEND GO PROCESS SERRTNATION 8 EXIT 
s"WRALL” SERVICING 
SOs: STB Ry) ; READY SET? 
TST (RY) :ERROR 617 SET? 
BMI 30 :N, Y-30$ 
MOV (RO)+,R2 tet T WORD WITH BITS 16 8 17 
BIC #177774, Re :RESET OTHER BITS 


SEG 0369 


| BRINOEC=11-OTTCA-8 TCLI/T cE FOR MP: Y11 27(732) 24-SEP-76 14:00 PAGE 6-1 SEQ 0370 
_«OTTCRS TC1L NON-IN ERR tpt ERRAND DATA Ceavict i 
«PIS «002426 010264 177776 MOV Re, -2(R4) :SET BITS 16 & 17 INTO TCST 
| 716 002432" 005201 INC DES aie hs WORD CNT 
«SE BR EUSE: BPASPS Fee Bec ;ROVE BITS D216 MORO TO TCOT 
| 79 ene 1 ne g WORD NT 
250 , 4 001000 177776 60S: I #1000, -2(R4) tBATA M ¢seD’ YET? 
«- 782 «-OOe4S2" 001 BEQ 60$ : 
— Zgg OneHs4” BR 40S ids TO TERMINATION 
| 735 s"WRTM” SERVICING 
| ea Qo2¥56° 004767 000034 70s: JSR PE NINTSU ;SET UP REGISTERS 
“58 BeSaeS: 1 : BP 80s 
730 0046s" 005714 TST (R4) ao BIT SET? 
| a Be. mF NAS, es o? 
| oe OLeOra ny sae. (RGD iNOVE DATA TO TCOT 
530 peee7e 1 INC pe. : NEG WORD” cnt 
| 736 O02502* 000767 BR 80S G0 WAIT FOR NEXT WORD 
737 002504" O1e70e 000310 90$: MOV 8200. ,R2 ‘SET UP DELAY CNT 
738 002510" i00$: DEC Re ‘DELAY FEW HUNDRED MICROSEC’S 
7339 002512" 001376 BNE 100$ 
eH 002514’ 000716 BR 40$ :GO TO TERMINATION 
74D 
m3 ;NON-INT REGISTER SETUP S/R 
is 002516 g16409 cooo04 NINTSU: MOV 4cRH) RO ; MOVE BUS ADR x | 
bus Doses: tine ee: NOV »R3 sHove uP re AD EN Rs 
748 002530’ 00006 ADD 86/R3 
748 002534’ 000207 RTS PC sEXIT IN-LINE | 


FO2 
OR MPG} MACYLL 27(732) 24-SEP-76 14:00 PAGE 7 


E 
I 


ROUTINE F 
TC1l INTERRUPT SERVICE ROUTINE 


C 
V 


MAINDEC-11-DTTCA-8 TC11/TUSE DEVI 


o-oo -o- + +O Ooo _— _a—O—_ ee eee eee ee Cr ---- r eoror - —--— -——-—- 


| OTTCAB.P11 


) 
/ 


|g 
i 

| 

| 


UNT 
40 TERM 


N-30$ 
ite Thee &. RE 
;G0 TO CMND TERMINATION 


“STOP” CMNOD AT FINAL INT? 


SET INT ENABLE 


oes 
BLS 
REG 
s 
WITH 

'60 TO INT aor 

ie a ERR CONDITION? 
cee 

ReCre WAITING FOR’ 


;DOING A USER “RONUM™ CMND? 


J 
’ 
’ 
J 
s 
’ 
J 
’ 
’ 
’ 
s 
’ 
’ 
s 
s 
s 
s 
. 
, 
J 
s 
’ 
’ 
’ 
s 
’ 
’ 
’ 
s 
’ 
s 
, 
s 
s 
’ 


;RESTORE ALL REGISTERS 
EXIT FROM INTERRUPT 


°N Y- 


HAVE 
35h 
ST 
DEC 
cnt 
1S 
GO 
1S 


_- 


ail i 


senptoreeaghgvi. © resasSnaes’. 


t 
ay 
CURFLG 
Q, 
oe 
) 
30S 
11, (R 
Sos 
RDNUM” USER CMND INT 


-SBTTL TCll INTERRUPT SERVICE ROUTINE 
;FINAL INTERRUPT PROCESSING 
RY) 
FINC 
T,( 
G 
T 


S$ 
10$: 
20$: 
305 
40S 


000412 


oe oeeeeneeenee &8 i #*# & ee & & 





O02 70 
002674 
Bis 
5 ee 
oak 
0027ee 
002726 


AD URE ASO BBECPEFIER EF RERBEEDEEREPERE 


ag 
ss 


I 
T 


SER eOR SSeS 


000000 co C000 co cn coco 
+ +b b= & = b+ b+ § = p> ho 
OO NOUL Wor 


FREGH ACARI RO ONS OBE OO Oe 


-Pll 


TC1l SEARCH 





175036 


004000 


068018 
ne 


004000 
000002 
004000 


at 


175022 


175746 


174746 


175634 


175626 


SEARCH: 


Mi 
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-SBTTL TC11 SEARCH FOR DECTAPE BLOCK S/R 


;SEARCH FOR SPECIFIED BLOCK 


‘ges Cage RECITES IF AN ERROR 


= an Gre Hm OR WO INT ENABLE 
ina = BR ADR 


:R4 = TC mA 

: DESTROYS RO,R1 
oe PSUROVCRS) RO BE oN Cbe 
BTS IGN BEV 2 ‘airs 


at pey Red BLOCK care 


T (RY) 

BMI 110$ : 

BIT #4000 , DFLGWD aa 1/0’S IN REVERSE? 
BNE 100$ ;N, Y-100$ 


;SEARCH FOR BLK FOR FWO 1/0 
CMP 6(R4), INBLKN ;AT woah BLK WE’RE LOOKING FOR? 


BEQ 30$ Nay -90$ 
BLT 80S T THE BLOCK? (Y,N-80S) 
SUB #2, RO *SUB 2 BLK’s 
Bre #4000, R1 ‘U8 REV BIT IN CRND 
BIT #4000; (RY) SALREADY GOING REV? 
ane BOS ONT NCR RE CNT 
ChE REVENT, a6 & DIRECTION REVERSALS? 
s #10, DFLGWD T ERR FLG 
Be 60 T a EXIT 
MOV RO, INBLKN :SAVE BLK ® (ORG OR ADJUSTED) 
MOV R1; (RY) iI DECTAPE 
R00 82, (SP) i3E a NORMAL RET ADR 
BI #4000, (R4) BRL Se FWD? 
BNE 60$ rY Paseo c 
fe 8 ee oe FIR 
: S CURCMD, RI : NRE GUE CODE 
IC #10, CURFLG *RESET BLK atta MODE FLAG 
BR BSS :GO ISSUE CMND 
;SEARCH FOR BLK FOR REV 1/0 
BIS #4000,R1 s INITIALIZE TO REV DIRECTION 
CMP &(R4), INBLKN THIS THE BLOCK WE WAN 
BEQ 105$ -105$ 
BGT 80$ NY FRONT OF THE BLK? (Y,N-80$) 
BIC #4000,R1 :SET DIR TO FWD 
ADD #2, RO -- s,  $RLLOW FOR TURN AROUND 
BIT #4000, (RY) .. }ALREADY GOING FWD? 


SEQ 0372 








| MAINDEC- sHI-DTTCASS TCL1/TUS& DEVICE ROUTINE FOR MPG  MACY1I 27(732) 24-SEP-76 14:00 PAGE 8-1 SEQ 0373 
| DTTCAB.P11 1 SEARCH FOR DECTAPE BLOCK S/R 
| Seg 983130. Bb gee SS 1 CROs EVERSAL CNT 
( ; 
gss rates 714 o04000 10S$: BIT #4000, (R4) Gb Ke eOENe REV? 
856 003140’ 001347 BNE 955 
50 003142" 4 
853 003144’ 00S764 177776 110$ T -2(R4) sEND Z0NE? 
860 003150" 1 “a BPL -Y N-88$ 
861 003152" 032714 ‘o04000 BIT #4000, (R4) i001 REV? 
862. 003156" 001315 BNE ? : 
863 003160’ 052701 oo4000 BIS #4000,R1 eT DIRECTION TO REV 
864 O03164' 000712 BR 70$ “GO CK REVERSAL CNT 


/ 3N, ¥-95$ 
BR ides :Gb STORE ADJUSTED BLK #8 
TS 
| 
| 





+ 


SERRE ORS SE RRL OEE oe RR ERS Baa a 





Ow owoOWOWWWwWW 
hs hh 
WONT £CWleO 


8 


is 


| warnoec- -11-DTTCA-B Me TAL ony ICE ROUTINE FOR MPG 
CAB. P11 OUTINES F 1 FUNCTION ROUTINES 


Tel 


174566 


000012 
000006 


175440 


000100 


JSR 
: ,WORD XXKX 
- WORD 
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~SBTTL SUBROUTINES FOR TC11 FUNCTION ROUTINES 


;CHECK IF DEVICE IS BUSY AND WAIT IF IT IS 


;JSR PC, CKDBSY 

ae RO,R3,R4 

= Teen ABR 
: JSR Pc SUPTAD 
BEd a 


JSR RS, dv IOBSY 


10! 
IT #2, DFLGWD 

BEQ 

JSR PC. PROCTM 

BR 1 

MOV VCTAD, 4O$ 

Mee si its 
WORD 3000 

‘ XXXX 

“WORD  TCINT-. 

MOV RS, ERRADR 

SUB #4) ERRADR 

RTS PC 


;ERROR INFORMATION DISPLAY S/R 


‘yen Re’ ERAS 
: MSGRDR-ERNBAS 


Se NT 
sDESTROYS RO,R1,R2 
JSR TSTAT 
RoRD Geta 


: MOV sCSTAT-ERSTAD, »ERSTAD 
BR ERRCOM 
: MOV SI STAT-ERSTAD, ERSTAD 
: MOV (RS)+, ERMBAS 


Noy (RS)4AE " ERMBAS+2 
BIT SPRONER,, POPSH(RS) 
MOV Ry (sp) 
JSR Bc, DISUNN 

RS’ PRINT 


XXXX 


S/R CALL 


38 
z 
=z 
wu 
£3 
z 
3 


;EXIT IN-LINE 


S/R CALL FOR CURR STATUS 
S/R CALL FOR INT STATUS 


RE OF ERROR MSG 

2 OF BYTES AN ERROR MSG 

;STORE CURR STATUS 

+R COMMON ADR OF Se STATUS 

ig! ore BOR OF OF LAST INT STATUS 
TORE MSG ADR 

STORE MSG CNT 

;ADD 1 TO ERROR CNT 

i ERROR PRINTING INHIBITED? 

3N, Y-ERREX 

;SET 4 ae Dae FLAG 

; DISPLAY 

;PRINT ERROR MSG SPECIFIED 


a 


REM RR SRR Std Raa cuba ue ees ERP CSR COMB CAT yi 


DTTCAB.Pil 


003470’ 


Renee 


ix 
U3 


=r 


Poon 


MAINDEC-11-DTTCA-B TC11/TUS& DEVICE ROU 
SUBROUTINES FOR TC11 FUNCTION ROUTINES 


727 177770 


177760 
000714 


001422 


Sa 


001701 
001713 ~ 


001534 


ERREX: 





174226 6§: 
174236 
000002 


174200 


108: 


TINE FOR MPG 


JO2 
MACYL1 27(732) 24-SEP-76 14:00 PAGE 9-1 


RMBAS, #INVDVN-ERMBAS 
, SINVBKN-ERMBAS 


RS, OISPST 


s INV UNIT # ERROR? 
3N YoERRSHM 

i INVALID BLOCK # ERROR? 
‘DISPLAY STATUS REG’S 

: AY : 

Oa aoe 5 poe Ae SrHINTS 
:SAVE STMNT LENGTH 

: ERROR ON THIS STMNT? 
‘POINT AT NXT STMNT 

G0 CK NXT STMNT 

:SET UP ADR OF STMNT # DATA 
SET UP DATA OUTPUT ADR 


;CONVERT IT TO ASCII 


HELE PA ang Se 


3 RESTORE RY 
;EXIT IN-LINE 


;PROCESS TERMINATION OF PREVIOUS I/0 FUNCTION 


Paso ROSS SSM Ta 


w 
4 
4 


;JSR PC,PROCTM 
RO, SAVREG 


a4; CURFLG 


at NT,RO 
FINENT? Bi 
aT 


RCK, POPSW(R3) 
oS eae 


RI 
#CODFLD-. ,Ri 
R1.Re 


ah: 1B). 
RO 


S/R CALL 


ee AL Eee TERMINATION FLAG 

: TNR BY Rea 

GET INITIAL 

: NAL 

tIS IT NEGATIVE? (Y,N-2) 

jNAKE IT POSITIVE 

!SUB REMAINING CNT FROM INITIAL CNT 


ACTUALLY XFERRED 


BLOCK SEARCH ERROR? 
ara 
GET OF CODE AREA IN ERR NSG 


;MOVE IT TO WORK REG 
;SET UP AREA we 
;CLEAR AREA T ACES 





SEG 0375 








INDEC-11-DTTCA-B TC11/TUSS DEVICE ROUTINE FOR MPG  MACYLI 27(732) 24-SEP-76 14:00 PAGE 9-2 SEQ 0376 
TCAB.P1l SUBROUTINES FOR TC11 FUNCTION ROUTINES 
978 003626’ 001374 BNE 10$ 
$79 003630’ 010700 beets MOV PC RO me ;SET UP ADR OF ERROR CODE TBL 
ay Bosese: ira: : ;SET UP ADR OF STORED DEV REG’S 
982 NO" 702 175013 ROD ISTAT#I-. ,R2 ; 
ag3 Bose 132008 20S: VB (RO) +, RY ‘AN DBA TE FOE EN one 
985 70 TST RY sEND OF THE CODE TBL? 
ag ppseeG eye 30: ac BS Re) ‘TTS PeROR BIT SET IN STATUS BYTE? 
$88 003656’ 001003 4uo$ :N.Y-40$ 
983 003660’ oo0004 ADD #4, RO :POINT AT NXT CCDE TBL ENTRY 
990 003664" 20$ *GO CK FOR NXT CODE 
991 003666’ 005716 40$: ‘TST (SP) “FIRST ERROR CODE IN MSG? 
992 003670’ 001402 BEQ cos :N.Y=50$ 
993 003672’ 112721 o000s4 MOVE #’. (R1)+ *MOVE COMMA TO MSG 
994 003676’ O0S216 Sos: INC (SP} :INC # OF copes IN THE MSG 
99s 003700" Lede} MO (RO)+, (R1)+ “MOVE ERROR CODE TO 
996 * 112021 MO (RO)+; (R1)+ 
997 003704’ 112021 (RO)+; (R1)+ 
238 003706 112021 (RO)+; (R1)+ 

10° 16 oo0004 CMP #4. (SP) ;PUT 4 CODES IN THE MSG? 
1000 14’ 7Y N-208 
1001 ’ 60S: S (SP)+ RESTORE STACK 
1 ’ 177360 J5R ERRIS ?G0 ISSUE STATUS ERROR MSG 
1003 O037e4" 001640 TCEMSG-ERMBAS 
10ts rere oo7e7 114 ess: J 22: RInty :GO RESET INT VECTOR 
1 , 7 J RO; RESRE! RESTORE REG 
1007 003740’ 004577 174104 JSR RS, JCUPGER ‘But net ERR RETN POINT 
18 pes ede ppeses 174742 70S: I : 1 Noe 
1010 oos75e 004767 80$: JSR PC, RINTV :GO RESET INT VECTOR 
1011 ’ 004067 C0016 J5R , sRESTORE R REG'S 
ints reas pOOeeS 177314 90s: J Re ERRIS Teale BLK Secu ERR MSG 
1014 * 901571 . WORD CHER-ERMBAS 
1015 003772’ 000016 .WORD 14. 
1016 003774’ 000755 BR 65S :GO TO ERROR RETURN 
101 
pig 003776’ O42600 O42116 132 ERCDTB: .ASCII <200>/ENDZ/ sERROR MSG CODE TABLE 
iit Gey: owing gers “ie CEE aah, 

’ _ cis 

1022 mitre peti: os011 pect hae NK / 
1023 O004022’ 051410 046105 105 -ASCII <010>/SELE/ 
1924 go40e?" a O46 102 046513 aScII «00% /BLKM/ 
ioee 4041" pase? oped aectt « > /NEXM/ 
1 oo4o4e’ = "BYTE 0 ; TABLE TERMINATOR 
1028 ’ “EVEN | 


OTT 


AMT & 


ot ea TC11/TUS6 DEV 
Pll SUBROUTINES FOR 


173726 


000004 
173760 





000010 


es 


ICE ROUTINE FOR MPG = MACY11 27(732) 24-SEP-76 14:00 PAGE 9-3 
TC11 FUNCTION ROUTINES 


;RESET INTERRUPT VECTOR S/R 


iJ RINTV S/R CALL 
sFa aT Oe PEAR AIN PROG TBL ADR 

RINTV: JSR - TVECT ;GO CK IF I HAVE VECTOR CONTROL 

BR, BUNTEX iB IE JOON T 

V VCTAD, 10$ TC NT VECT ADR 

ISR RS, ICLAVEC :GO HAVE MPG CLEAR IT 
10S: ~WORD XXKX 
RINTEX: RTS PC EXIT IN-LINE 


;TEST INTERRUPT VECTOR S/R 


id TVECT S/R caLt 
XECUT IF NOT SAME 
:R3 MUST CONTAIN PROG TBL ADR 
:DESTROYS RO 
TVECT: MOV IVCTAD ;GET CURR INT VECT ADR 
MOV PrHADRt RSS, -(SP) :STORE FLGWD ADR TO IDENTIFY ME 
JSR RS, JTSTVEC :DO wactave VECTOR ON 
20$: ~WORD  XXXX : WILL SINC 7 CAN’T 
.WORD  TCINT-. 3 4 .GET AT OWER MEM IF MEM MGMNT 
R TVECTX :BR IF I DONT’T HAVE CNTRL 
ST (RS)+ :BYPASS BR INST IN S/R CALL 
TVECTX: RTS RS EXIT IN-LINE 


SEQ 0377 


tS 


MAINDEC=11-DTTCA-8 TC11/TUS& DEVICE ROUTINE FOR MPG  MACY11 27(732) 24-SEP-76 14:00 PAGE 10 SEQ 0376 
DTTCAB.P11 SUBROUTINES FOR TC11 DEVICE ROUTINE 


-SBTTL SUBROUTINES FOR TC11 DEVICE ROUTINE 





;SAVE REGISTERS RO THRU RS 


SoSeRerReR eee 


;JSR RO, SAVREG S/R CALL 
004124" 010146 SAVREG: MOV R1,-(SP) ;SAVE RO THRU RS 
004126’ 010246 MOV Re, -(5P) 
004130’ 010346 MOV R3,-(5P) 
004132’ 010446 MOV RY; -(SP) 
1 004134’ O10S46 MOV RS, -(SP) 
1073 004136’ 010007 MOV RO; PC sEXIT IN-LINE 
1075 
1076 ;RESTORE REGISTERS RO THRU RS 
1078 ;JSR RO, RESREG S/R CALL 
1080 004140’ 005726 RESREG: TST (SP)+ ;RESTORE RS THRU RO 
1081 004142’ 012605 MOV (SP)+, RS 
1082 004144’ 012604 MOV (SP)+)R4 
1083 004146’ 012603 MOV (5P)+'R3 
1084 OO41S50’ Ole602 (SP)+'R2 
| 1085 004152’ 012601 MOV (SP)+'RI 
| 108 004154" 900200 RTS RO ;EXIT IN-LINE 
1088 
| 1089 ;SET PROGRAM’S PROG TABLE ADR IN R3 8 TCCM ADR IN RY 
«1981 ;JSR PC, SUPTAD S/R CALL 
/ 1093 004156’ 010703 SUPTAD: MOV PC,R3 ;SET UP LOCATION ZcRO ADR 
/ 1084 004160’ 062703 173620 ADD #LOC2-. .R3 h 
- 1095 OO4164" 166303 177776 SUB -2(R3) RB ;SUBTRACT PROG TBL LENGTH 
_ 109 004170" 016704 173630 MOV DREGAD; R4 :GET DEV REG BASE ADR 
1087 004174’ oo0002 ADD #2, R4 :POINT AT TCCM 
1038 Oo4200° 900207 RTS PC *EXIT IN-LINE 
1100 
1101 ;STORE DEVICE’S STATUS REGISTERS 
1103 ;JSR_——- RS, STSTAT S/R CALL 
1104 >. WORD STADR-. REL STORAGE ADR 
1108 ‘DESTROYS RO,Ri 
1107 oo4202" 010501 STSTAT: MOV RS,R1 sGET REL STORAGE ADR & MAKE 
1108 004204’ 062501 ADD (RS)+,R1 :IT ABSOLUTE 
1109 004206’ 016700 173612 MOV DREGAD, RO -GET ADR OF DEV REG'S 
1110 OO4212" 012021 MOV (RO)+, (R1)+ :STORE ALL DEV REG’S 
1111 OO04214’ O12021 _ MOV (RO)+; (R1)+ 
lll2 OO04216’ 012021 MOV (RO)+; (R1)+ 
1113 004220" O12e0e1 MOV (RO)+’ (R1)+ 
1114 O04222" O10 MOV (RO), (R1) 
1115 O04224" 0002 RTS RS sEXIT IN-LINE 


MAINDEC-11-DTTCA-B TC 
SUBROU 


o~o 


| el ee 


o00020 OISUIV: 


SDD a UE CO FU U0 IEF UT ECO PO Co 00 SION E C0TU DED OUT E Corus ub ed OROLE Corus toen 


MACY11 27(732) 


;DISPLAY CURRENT UNIT 8 


HR3 must’ CONTAIN proc 


DESTROYS RO,R1,Re 


STATUS MSG & PRINT IT 


JSR RS DISPST 
: WORD ATADR-. 
SDESTROYS RO,R1,Re 


br 8 Pe ee te te 
R222 
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Te ton 


INITIALIZE To NORMAL MSG LNGTH 
;VALID UNTT #? 

ONVERT- ; “to DECIMAL ASCII 
sMOVE. ascll # TO 1ST TWO DIGITS 
ley AB gp "= UO 
:CONVERT BINARY # TO ASCII 
;G0 ISSUE UNIT # MSG 


SEXIT IN-LINE 
ak & 
Bip DATA 
GET A ADR 
; MAK 
SET REG NAMES IN ASCII 


> 
;GET # OF REGISTERS TO DISPLAY 
;MOVE REG NAME TO MSG 
;BYPASS DISP_VALUE 
:GET REG’S STORED VALUE 
;SAVE R1 & Re 
;CONVERT IT TO ASCII 
;PRINT THE STATUS MSG 


RESTORE R1 & Re 
;DECR RE 


CNT 
‘Bete ee FROM’ STACK 
sEXIT IN-LINE 


& 
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ttn 
SUBROUTINE 


INDEC-11-DTTCA-8 TC 


OTTCAB.Pli 


SES 0380 


NReSeT PRT DEV DEDICATES: ) 
“za1F NEGATIVE, USE CHNO MODE PRINT 


; ISSUE BLOCK 8 MSG 


;EXIT IN-LINE 


REL AOR OF SG 


BYTCNT — 


PRINT 

;R3 = PROG TBL ADR 
RY = FL 

YS RO,R1 


; -WORD 


;JSR 


; DEST 


;PRINT CURRENT “BLK” VALUE 


; ISSUE MSG TO LIST DEVICE 


Ste Nee Le Ree late ee hat Ree Ree hoe oe oe ee oe hoe oe ee Pee ee be ee ee ee ee ee ee ee 
St ett hee hte het ee ka ee hae ae hae he he ae oe hoe oe oe oe ee ere Okeke Pere re Pere Peper ne errr rrr rere ro rr ror! 
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00512s’ 
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ie Bus 
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005276’ 
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TC11 MESSAGE STORAGE AREA 


BEX 


/Pe/ 

“XX/<O11> 

"AT LAST INT/NON-INT TERM:’ 
/ TLY:7 


PORT / 
/*#*ETC11 DECTAPE UNIT: / 
AXXXXXX/ 

SEXXXXs / 
AXXXXXX/ 


/BYTES: RD= / 


WR= / 


<015><Ole2> 
(O11>7 : RO= / 
/XXXXXX WR= 


"TIMEOUT ON 170’ 
_ SEARCH ERR/ 


/STMNT @ / 
SXXXXXX/ 
“STATUS ERROR: / 
INV IT #/ 
“INV BLK 87. 


BEX 


a te ee 8 ee ee. a ee ee eee 


] 


EL LT 


7 a 


SS 


mn i ee ee ee eee es - 


MAINDEC-11-DTTCA-8 ieil/ ss DEVICE ROUTINE FOR MPG _ MACYI1 27(732) 24-SEP-76 14:00 PAGE le 
| OTTCAB.Pil FORMATS FOR PROGRAM 8 DEVICE ROUTINE TABLES 


: 3 .SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 

icf ; PROGRAM TABLE FORMAT 

Ee 00de42 PTLGTH= 162. ;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
15 ;(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 


PFLGWD= +0. ;PROGRAM FLAG WORD - 1 WORD 
URSTOP= 2 ; 1 = USER HAS STOPPED THIS PROGRAM 


fe RF Ne Foe 120 TERRINATTON 


000000 
00002 URST ; 

iSge mot mus WradOrs 36 it OR PRI 70 IN PROGRE 

1287 euaar SETDED= tis Fone BRiog se WME PAT oe DED SCRTED FLAG 

ies i SSEUBRe 2 bbe ets PROG USES THe MAP (MEM MGMNT ONLY) 

ies seni betes $8000 ts PHBeRAN fs BETIVE (SPECTPIED FOR EXECUTION) 

1282 ooo002 POPSW= 42. sPROGRAM’S OPERATION SWITCHES - 1 WORD 

124 0000 TONERS 1 ; 12ST CUTION ERROR 

1295 pucane ye $0000 i]: = fy (ON CURRENT DEVICE) 

Sas 910000 Tl2= | tt. lel ee 

1298 004000 Btttie Apeo" : Q = War T 

1299 02000 CYCOL= 2000; 1s crete THE Be SEL wen 

13; eerie BorRck= ah 8 ine nm 

ee 00200 SPOPER= 2000; 1 = nr eb SPECIAL OPERATION 

1304 ceed 1Sis 4f° 1s TIMEOUT 

1305 900020 AUTORP= 20 1s B st oe AUTOMATICALLY DISPLAY COUNTS 

1306 900010 AURPEP= 10 : | = AUTO D S AT END OF FINAL PASS ONLY 

1307 000004 HSKPEP= 4 ts ag 

1308 esate BBOV= 2 | = PRIN Ny YON Ve VERIFY 

ia 1 NOCOMP= | ; 1 = DO NOT RINT 

1311 oocoo4 PFWADR= +4. :#;PROGRAM FLAGWORD ADDRESS - 1 WORD 

i313 o0c00s PASCINS +6.  ;PROGRAM’S NUMBER IN ASCII - 1 WORD 

1315 000010 PNAME= +8. sPROGRAM’S NAME IN ASCII - 6 BYTES 

1317 000016 PROIOAS +14 ADDRESS OF READ 1/0 AREA - 1 WORD 

1313 po0020 PURIOAS +16.  ; ADDRESS OF WRITE 1/0 AREA - 1 WORD 

132) onze PSRCST= +18.  ;SOURCE STATEMENTS START ADDRESS - 1 WORD 

1323 ooo024 POBJST= +20.  ; OBJECT CODE START ADDRESS - 1 WORD 

1326 oo0026 PLNGTH= +22.  ;PROG AREA LENGTH’ (OBJ END MINUS PROG TBL START) - 1 WORD 

1327 000030 PTOCNTs #24.  ;1/0 TIMEOUT COUNT - 1 WORD 


| 
| 
| 
| 
| 


| PATIOECS 11 -OTTCA 
| OTTC 
| 


oe 


cc TT 


oo0032 
000034 
000035 
000036 


—B TC11/TUS& DEVICE ROUTI 


FORMATS FOR PROGRAM & DEVI 


PMDLCD= 
POPNTR= 


PSRC= 
PDST= 
PSTKCT= 
PSTKSV= 
PSVREG= 
PUSRPC= 


cae eee ee ee ee 


Of ROUTINE 7 
+26. 
+28. 
+29. 
+30. 


SS enter heen. *-- eee 


ABLES 
;DEV ROUT MODEL # CODE - 1 WORD 
;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
;CURRENT DEVICE # - 1 BYTE 
;DEVICE NUMBERS - 16 BYTES 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

“USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 
;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 
;# OF WORDS (X 2) SAVED OFF STACK - 1 WORD 
;STACK WORDS STORAGE AREA - 30 WORDS 
;USER’S RO THRU RS REGISTERS STORAGE AREA - & WORDS 
;USER’S CURRENT PROGRAM COUNTER - 1 WORD 


MACY11 27(732) 24-SEP-76 14:00 PAGE l2-i SEQ 0383 


| MAINDEC-11-DTTCA-8 Me AL DEVICE ROUTINE FOR_MPG 
OR PROGRAM & DEVICE ROUTINE TABLES 


| DTTCAB. 
1384 


> + bb 0 bb b= b- 6 « 2 2 0 © 9 Bp ope te eed ed ee od 


GRRE BLS Se Bene eos 


} 
@ 


Pil FORMATS F 


000242 


;FOLLOWING ENTRIES (PRDIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 
; (PROIOX= +160. 
;(PROIOV= +164. 
; (PWRIOX= +168. 
;(PWRIOV= +172. 
; (PUPARS= +176. 
;(PUPDRS= +192. 
; (PUBMAP= +208. 
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; 18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;18 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 
318/22 BIT ABSOLUTE ADDRESS OF WRITE I/0 AREA - 2 WORDS) 
;18 BIT VIRTUAL ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
;STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS) 
;STORAGE AREA FOR USER’S POR’S 0 THRU 7 - 8 WORDS) 

;1ST UNIBUS MAP REG # AND # OF REGS USED - 1 WORD) 


;END OF MEM MGMNT ONLY ENTRIES 


PTSIZE= +160. 


;(PTSIZE= +210. 


PTEND= +162. 


;(PTEND= +212. 


;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION) 
;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 

;END OF PROGRAM TABLE - MEM MGMNT VERSION) 


SEQ 0384 


a a a an ra 


ae ae 


1449 


arerenntatan ga: 
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DEVICE ROUTINE TABLE 


000116 


DRTLTH= 


; 
bevesz= 
DEVFWD= 
DEVIWI= 
DEVIWe= 
DEVIW3= 
DEVIW4= 
DEVIWS= 
DEVIW6= 
DEVIW7= 
DEVIWS= 


DERPAD= 
DKILAD= 
DECTAD= 
DTOEAD= 
DEVIOB= 
DEVDER= 
DVUPRT= 
DVCPRT= 
DEVBTA= 
DVBTDA= 


78. 


+0. 
+2. 


+48 . 


;DEVICE ROUTINE TABLE LENGTH 


;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 

;DEVICE ROUTINE FLAGWORD - 1 WORD 

;DEVICE INTERFACE WORD # 1 - 1 WORD 

;DEVICE INTERFACE WORD ® 2 - 1 WORD 

;DEVICE INTERFACE WORD # 3 - 1 WORD 

;DEVICE INTERFACE WORD # 4 - 1 WORD 

sDEVICE INTERFACE WORD # S - 1 WORD 

;DEVICE INTERFACE WORD # & - 1 WORD 

sDEVICE INTERFACE WORD #7 - 1 WORD (SIZE) 

sDEVICE INTERFACE WORD # 8 - 1 WORD (ERR) 

;DEVICE REGISTERS ADDRESS - 1 WORD 

;DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 

sDEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
sDEVICE ROUT REPORT ROUT REL’ ENTRY ADR - 1 WORD 
sDEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 

;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
;DEVICE I70 BUSY BRANCH ADDRESS (CIOBSY) - 1 WORD 
;DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD 

sUSER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 
;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
sCONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 


oe ee ee ee ee ee ee 


MAINDEC-11-DTTCA-B ToL Tse DEVICE 


DTTCAB.P1i FORMATS FOR PROGRAM 
1466 000062 
1467 
ee 000064 
147 OCO0&E 
1471 
1472 000070 
1473 
1474 000072 
1475 
1476 000074 
1477 
1478 000076 
1479 
1480 000100 
1481 
1482 000102 
1483 
1484 000104 
1485 
1486 000106 
1487 
1488 000110 
1489 
1490 000112 
1491 
1492 000114 
1493 
1494 000116 
1495 
1496 
1497 000001 


s DEVICE ROUTI 


DVPDTA= +50. 
DVSFWD= +52. 
DVSVEC= +54. 
DVCVEC= +56. 
DVTVEC= +58. 
DVRINT= +60. 
DVGETB= +62. 
DVPUTB= +64. 
DEVSTP= +66. 
DEVETP= +68. 
DVPTEP= +70. 
DVVTEP= +72. 
DVCTEP= +74. 
DVIWSP= +76. 
DRTEND= +78. 
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TABLES 
;CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 


;MPG SYSTEM FLAGWORD ADDRESS (CSYSFW) - 1 WORD 
;SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 
;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 
; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 
;RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 
;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 

;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 
;PACK TABLE EXTEN. REL POINTER - 1 WORD 

;VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
;COMPILER TBL EXTEN. REL POINTER - 1 WORD 
;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
;END OF DEVICE ROUTINE TABLE 





SEQ 0386 


- ee - e ee e 


SEQ 0387 


8 Seesseesssesssess Ss 88 88 BS SsesBS8Ss3805 8 
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PTLGTH= 000242 
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SYMBOL 
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OT SYMBOL TABLE 


900000 
‘Tel = «©008276 ~=- Oe 


TCAB.P11 
WRALL O01622R 002 WRCOM O01SS6R 002 WRTM  O01634R 002 wrT4I0T= 000010 ‘ = 005276R ode 
. ABS. 000000 000 
001 
Do tg DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 

Aa T0Ce pres. Pll 

aa-tie ‘eat fo: ‘ ican 5 


DOCUMENT PAGES: 35 


PURT IM nas 


v 
; 


aaeeatndad Tala 
Tere 2A @ SOD00000000 
) ~* : >t > Tams 
——llie } oe 
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